R Notebook

Load packages

library(tidyverse)

Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages ------------------------------------------
filter(): dplyr, plotly, stats
lag():    dplyr, stats

I downloaded the file into R

download.file("https://raw.githubusercontent.com/swcarpentry/r-novice-gapminder/gh-pages/_episodes_rmd/data/gapminder-FiveYearData.csv", destfile = "data/gapminder-FiveYearData.csv")

gapminder <- read.csv("data/gapminder-FiveYearData.csv")

I wonder what is the life expectancy over the years

interactive version

if(!require("plotly")){install.packages("plotly")}
library(plotly)
p <- ggplot(data = gapminder[gapminder$continent=="Americas",], aes(x=gdpPercap,y=lifeExp,color=continent,by=country))+
  geom_point()+
  scale_x_log10()+
  geom_smooth(method = "lm")+
  facet_wrap(~country)+
  xlab("Gross Domestic Product")+
  ylab("Life Expectancy")
p
ggplotly(p)

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`